/ Revista CD Expert 32 / CD Expert nº 32.iso / Unreal T / utdemo338.exe / System / UBrowser.u / UBrowserServerList_UBrowserIRCUserListBox_ScriptText.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 67 20 63 6c 61 73 73 20 |........|g class |
|00000010| 55 42 72 6f 77 73 65 72 | 49 52 43 55 73 65 72 4c |UBrowser|IRCUserL|
|00000020| 69 73 74 42 6f 78 20 65 | 78 70 61 6e 64 73 20 55 |istBox e|xpands U|
|00000030| 57 69 6e 64 6f 77 4c 69 | 73 74 42 6f 78 3b 0d 0a |WindowLi|stBox;..|
|00000040| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 43 72 65 61 74 |..functi|on Creat|
|00000050| 65 64 28 29 0d 0a 7b 0d | 0a 09 53 75 70 65 72 2e |ed()..{.|..Super.|
|00000060| 43 72 65 61 74 65 64 28 | 29 3b 0d 0a 7d 0d 0a 0d |Created(|);..}...|
|00000070| 0a 66 75 6e 63 74 69 6f | 6e 20 41 64 64 55 73 65 |.functio|n AddUse|
|00000080| 72 28 73 74 72 69 6e 67 | 20 4e 69 63 6b 4e 61 6d |r(string| NickNam|
|00000090| 65 29 0d 0a 7b 0d 0a 09 | 6c 6f 63 61 6c 20 55 42 |e)..{...|local UB|
|000000a0| 72 6f 77 73 65 72 49 52 | 43 55 73 65 72 4c 69 73 |rowserIR|CUserLis|
|000000b0| 74 20 4e 65 77 55 73 65 | 72 3b 0d 0a 0d 0a 09 69 |t NewUse|r;.....i|
|000000c0| 66 28 46 69 6e 64 4e 69 | 63 6b 28 4e 69 63 6b 4e |f(FindNi|ck(NickN|
|000000d0| 61 6d 65 29 20 3d 3d 20 | 4e 6f 6e 65 29 0d 0a 09 |ame) == |None)...|
|000000e0| 7b 0d 0a 09 09 4e 65 77 | 55 73 65 72 20 3d 20 55 |{....New|User = U|
|000000f0| 42 72 6f 77 73 65 72 49 | 52 43 55 73 65 72 4c 69 |BrowserI|RCUserLi|
|00000100| 73 74 28 49 74 65 6d 73 | 2e 41 70 70 65 6e 64 28 |st(Items|.Append(|
|00000110| 4c 69 73 74 43 6c 61 73 | 73 29 29 3b 0d 0a 09 09 |ListClas|s));....|
|00000120| 4e 65 77 55 73 65 72 2e | 4e 69 63 6b 4e 61 6d 65 |NewUser.|NickName|
|00000130| 20 3d 20 4e 69 63 6b 4e | 61 6d 65 3b 0d 0a 09 09 | = NickN|ame;....|
|00000140| 49 74 65 6d 73 2e 4d 6f | 76 65 49 74 65 6d 53 6f |Items.Mo|veItemSo|
|00000150| 72 74 65 64 28 4e 65 77 | 55 73 65 72 29 3b 0d 0a |rted(New|User);..|
|00000160| 09 7d 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |.}..}...|.functio|
|00000170| 6e 20 52 65 6d 6f 76 65 | 55 73 65 72 28 73 74 72 |n Remove|User(str|
|00000180| 69 6e 67 20 4e 69 63 6b | 4e 61 6d 65 29 0d 0a 7b |ing Nick|Name)..{|
|00000190| 0d 0a 09 6c 6f 63 61 6c | 20 55 42 72 6f 77 73 65 |...local| UBrowse|
|000001a0| 72 49 52 43 55 73 65 72 | 4c 69 73 74 20 55 73 65 |rIRCUser|List Use|
|000001b0| 72 3b 0d 0a 09 55 73 65 | 72 20 3d 20 46 69 6e 64 |r;...Use|r = Find|
|000001c0| 4e 69 63 6b 28 4e 69 63 | 6b 4e 61 6d 65 29 3b 0d |Nick(Nic|kName);.|
|000001d0| 0a 09 69 66 28 55 73 65 | 72 20 21 3d 20 4e 6f 6e |..if(Use|r != Non|
|000001e0| 65 29 0d 0a 09 09 55 73 | 65 72 2e 52 65 6d 6f 76 |e)....Us|er.Remov|
|000001f0| 65 28 29 3b 0d 0a 7d 0d | 0a 0d 0a 66 75 6e 63 74 |e();..}.|...funct|
|00000200| 69 6f 6e 20 43 68 61 6e | 67 65 4e 69 63 6b 28 73 |ion Chan|geNick(s|
|00000210| 74 72 69 6e 67 20 4f 6c | 64 4e 69 63 6b 2c 20 73 |tring Ol|dNick, s|
|00000220| 74 72 69 6e 67 20 4e 65 | 77 4e 69 63 6b 29 0d 0a |tring Ne|wNick)..|
|00000230| 7b 0d 0a 09 6c 6f 63 61 | 6c 20 55 42 72 6f 77 73 |{...loca|l UBrows|
|00000240| 65 72 49 52 43 55 73 65 | 72 4c 69 73 74 20 55 73 |erIRCUse|rList Us|
|00000250| 65 72 3b 0d 0a 09 55 73 | 65 72 20 3d 20 46 69 6e |er;...Us|er = Fin|
|00000260| 64 4e 69 63 6b 28 4f 6c | 64 4e 69 63 6b 29 3b 0d |dNick(Ol|dNick);.|
|00000270| 0a 09 69 66 28 55 73 65 | 72 20 21 3d 20 4e 6f 6e |..if(Use|r != Non|
|00000280| 65 29 0d 0a 09 09 55 73 | 65 72 2e 4e 69 63 6b 4e |e)....Us|er.NickN|
|00000290| 61 6d 65 20 3d 20 4e 65 | 77 4e 69 63 6b 3b 0d 0a |ame = Ne|wNick;..|
|000002a0| 0d 0a 09 53 6f 72 74 28 | 29 3b 0d 0a 7d 0d 0a 0d |...Sort(|);..}...|
|000002b0| 0a 66 75 6e 63 74 69 6f | 6e 20 55 42 72 6f 77 73 |.functio|n UBrows|
|000002c0| 65 72 49 52 43 55 73 65 | 72 4c 69 73 74 20 46 69 |erIRCUse|rList Fi|
|000002d0| 6e 64 4e 69 63 6b 28 73 | 74 72 69 6e 67 20 4e 69 |ndNick(s|tring Ni|
|000002e0| 63 6b 4e 61 6d 65 29 0d | 0a 7b 0d 0a 09 6c 6f 63 |ckName).|.{...loc|
|000002f0| 61 6c 20 55 42 72 6f 77 | 73 65 72 49 52 43 55 73 |al UBrow|serIRCUs|
|00000300| 65 72 4c 69 73 74 20 55 | 73 65 72 3b 0d 0a 0d 0a |erList U|ser;....|
|00000310| 09 66 6f 72 28 55 73 65 | 72 3d 55 42 72 6f 77 73 |.for(Use|r=UBrows|
|00000320| 65 72 49 52 43 55 73 65 | 72 4c 69 73 74 28 49 74 |erIRCUse|rList(It|
|00000330| 65 6d 73 2e 4e 65 78 74 | 29 3b 55 73 65 72 20 21 |ems.Next|);User !|
|00000340| 3d 20 4e 6f 6e 65 3b 20 | 55 73 65 72 3d 55 42 72 |= None; |User=UBr|
|00000350| 6f 77 73 65 72 49 52 43 | 55 73 65 72 4c 69 73 74 |owserIRC|UserList|
|00000360| 28 55 73 65 72 2e 4e 65 | 78 74 29 29 0d 0a 09 09 |(User.Ne|xt))....|
|00000370| 69 66 28 55 73 65 72 2e | 4e 69 63 6b 4e 61 6d 65 |if(User.|NickName|
|00000380| 20 3d 3d 20 4e 69 63 6b | 4e 61 6d 65 29 0d 0a 09 | == Nick|Name)...|
|00000390| 09 09 72 65 74 75 72 6e | 20 55 73 65 72 3b 0d 0a |..return| User;..|
|000003a0| 0d 0a 09 72 65 74 75 72 | 6e 20 4e 6f 6e 65 3b 09 |...retur|n None;.|
|000003b0| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|000003c0| 44 72 61 77 49 74 65 6d | 28 43 61 6e 76 61 73 20 |DrawItem|(Canvas |
|000003d0| 43 2c 20 55 57 69 6e 64 | 6f 77 4c 69 73 74 20 49 |C, UWind|owList I|
|000003e0| 74 65 6d 2c 20 66 6c 6f | 61 74 20 58 2c 20 66 6c |tem, flo|at X, fl|
|000003f0| 6f 61 74 20 59 2c 20 66 | 6c 6f 61 74 20 57 2c 20 |oat Y, f|loat W, |
|00000400| 66 6c 6f 61 74 20 48 29 | 0d 0a 7b 0d 0a 09 6c 6f |float H)|..{...lo|
|00000410| 63 61 6c 20 73 74 72 69 | 6e 67 20 50 72 65 66 69 |cal stri|ng Prefi|
|00000420| 78 3b 0d 0a 0d 0a 09 69 | 66 28 53 65 6c 65 63 74 |x;.....i|f(Select|
|00000430| 65 64 49 74 65 6d 20 3d | 3d 20 49 74 65 6d 29 0d |edItem =|= Item).|
|00000440| 0a 09 7b 0d 0a 09 09 43 | 2e 44 72 61 77 43 6f 6c |..{....C|.DrawCol|
|00000450| 6f 72 2e 72 20 3d 20 30 | 3b 0d 0a 09 09 43 2e 44 |or.r = 0|;....C.D|
|00000460| 72 61 77 43 6f 6c 6f 72 | 2e 67 20 3d 20 30 3b 0d |rawColor|.g = 0;.|
|00000470| 0a 09 09 43 2e 44 72 61 | 77 43 6f 6c 6f 72 2e 62 |...C.Dra|wColor.b|
|00000480| 20 3d 20 31 32 38 3b 0d | 0a 09 09 44 72 61 77 53 | = 128;.|...DrawS|
|00000490| 74 72 65 74 63 68 65 64 | 54 65 78 74 75 72 65 28 |tretched|Texture(|
|000004a0| 43 2c 20 58 2c 20 59 2c | 20 57 2c 20 48 2d 31 2c |C, X, Y,| W, H-1,|
|000004b0| 20 54 65 78 74 75 72 65 | 27 57 68 69 74 65 54 65 | Texture|'WhiteTe|
|000004c0| 78 74 75 72 65 27 29 3b | 0d 0a 09 7d 0d 0a 0d 0a |xture');|...}....|
|000004d0| 09 43 2e 44 72 61 77 43 | 6f 6c 6f 72 2e 72 20 3d |.C.DrawC|olor.r =|
|000004e0| 20 32 35 35 3b 0d 0a 09 | 43 2e 44 72 61 77 43 6f | 255;...|C.DrawCo|
|000004f0| 6c 6f 72 2e 67 20 3d 20 | 32 35 35 3b 0d 0a 09 43 |lor.g = |255;...C|
|00000500| 2e 44 72 61 77 43 6f 6c | 6f 72 2e 62 20 3d 20 32 |.DrawCol|or.b = 2|
|00000510| 35 35 3b 0d 0a 09 0d 0a | 09 43 2e 46 6f 6e 74 20 |55;.....|.C.Font |
|00000520| 3d 20 52 6f 6f 74 2e 46 | 6f 6e 74 73 5b 46 5f 4e |= Root.F|onts[F_N|
|00000530| 6f 72 6d 61 6c 5d 3b 0d | 0a 0d 0a 09 69 66 28 55 |ormal];.|....if(U|
|00000540| 42 72 6f 77 73 65 72 49 | 52 43 55 73 65 72 4c 69 |BrowserI|RCUserLi|
|00000550| 73 74 28 49 74 65 6d 29 | 2e 62 43 68 4f 70 29 0d |st(Item)|.bChOp).|
|00000560| 0a 09 09 50 72 65 66 69 | 78 20 3d 20 22 40 22 3b |...Prefi|x = "@";|
|00000570| 0d 0a 09 65 6c 73 65 20 | 69 66 28 55 42 72 6f 77 |...else |if(UBrow|
|00000580| 73 65 72 49 52 43 55 73 | 65 72 4c 69 73 74 28 49 |serIRCUs|erList(I|
|00000590| 74 65 6d 29 2e 62 56 6f | 69 63 65 29 0d 0a 09 09 |tem).bVo|ice)....|
|000005a0| 50 72 65 66 69 78 20 3d | 20 22 2b 22 3b 0d 0a 09 |Prefix =| "+";...|
|000005b0| 65 6c 73 65 0d 0a 09 09 | 50 72 65 66 69 78 20 3d |else....|Prefix =|
|000005c0| 20 22 22 3b 0d 0a 0d 0a | 09 43 6c 69 70 54 65 78 | "";....|.ClipTex|
|000005d0| 74 28 43 2c 20 58 2c 20 | 59 2c 20 50 72 65 66 69 |t(C, X, |Y, Prefi|
|000005e0| 78 24 55 42 72 6f 77 73 | 65 72 49 52 43 55 73 65 |x$UBrows|erIRCUse|
|000005f0| 72 4c 69 73 74 28 49 74 | 65 6d 29 2e 4e 69 63 6b |rList(It|em).Nick|
|00000600| 4e 61 6d 65 29 3b 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |Name);..|}....fun|
|00000610| 63 74 69 6f 6e 20 43 68 | 61 6e 67 65 4f 70 28 73 |ction Ch|angeOp(s|
|00000620| 74 72 69 6e 67 20 4e 69 | 63 6b 2c 20 62 6f 6f 6c |tring Ni|ck, bool|
|00000630| 20 62 4f 70 29 0d 0a 7b | 0d 0a 09 6c 6f 63 61 6c | bOp)..{|...local|
|00000640| 20 55 42 72 6f 77 73 65 | 72 49 52 43 55 73 65 72 | UBrowse|rIRCUser|
|00000650| 4c 69 73 74 20 55 73 65 | 72 3b 0d 0a 0d 0a 09 55 |List Use|r;.....U|
|00000660| 73 65 72 20 3d 20 46 69 | 6e 64 4e 69 63 6b 28 4e |ser = Fi|ndNick(N|
|00000670| 69 63 6b 29 3b 0d 0a 09 | 69 66 28 55 73 65 72 20 |ick);...|if(User |
|00000680| 21 3d 20 4e 6f 6e 65 29 | 0d 0a 09 7b 0d 0a 09 09 |!= None)|...{....|
|00000690| 55 73 65 72 2e 62 43 68 | 4f 70 20 3d 20 62 4f 70 |User.bCh|Op = bOp|
|000006a0| 3b 0d 0a 09 09 49 74 65 | 6d 73 2e 4d 6f 76 65 49 |;....Ite|ms.MoveI|
|000006b0| 74 65 6d 53 6f 72 74 65 | 64 28 55 73 65 72 29 3b |temSorte|d(User);|
|000006c0| 0d 0a 09 7d 0d 0a 7d 0d | 0a 0d 0a 66 75 6e 63 74 |...}..}.|...funct|
|000006d0| 69 6f 6e 20 43 68 61 6e | 67 65 56 6f 69 63 65 28 |ion Chan|geVoice(|
|000006e0| 73 74 72 69 6e 67 20 4e | 69 63 6b 2c 20 62 6f 6f |string N|ick, boo|
|000006f0| 6c 20 62 56 6f 69 63 65 | 29 0d 0a 7b 0d 0a 09 6c |l bVoice|)..{...l|
|00000700| 6f 63 61 6c 20 55 42 72 | 6f 77 73 65 72 49 52 43 |ocal UBr|owserIRC|
|00000710| 55 73 65 72 4c 69 73 74 | 20 55 73 65 72 3b 0d 0a |UserList| User;..|
|00000720| 0d 0a 09 55 73 65 72 20 | 3d 20 46 69 6e 64 4e 69 |...User |= FindNi|
|00000730| 63 6b 28 4e 69 63 6b 29 | 3b 0d 0a 09 69 66 28 55 |ck(Nick)|;...if(U|
|00000740| 73 65 72 20 21 3d 20 4e | 6f 6e 65 29 0d 0a 09 7b |ser != N|one)...{|
|00000750| 0d 0a 09 09 55 73 65 72 | 2e 62 56 6f 69 63 65 20 |....User|.bVoice |
|00000760| 3d 20 62 56 6f 69 63 65 | 3b 0d 0a 09 09 49 74 65 |= bVoice|;....Ite|
|00000770| 6d 73 2e 4d 6f 76 65 49 | 74 65 6d 53 6f 72 74 65 |ms.MoveI|temSorte|
|00000780| 64 28 55 73 65 72 29 3b | 0d 0a 09 7d 0d 0a 7d 0d |d(User);|...}..}.|
|00000790| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 44 6f 75 62 |...funct|ion Doub|
|000007a0| 6c 65 43 6c 69 63 6b 49 | 74 65 6d 28 55 57 69 6e |leClickI|tem(UWin|
|000007b0| 64 6f 77 4c 69 73 74 42 | 6f 78 49 74 65 6d 20 49 |dowListB|oxItem I|
|000007c0| 29 0d 0a 7b 0d 0a 09 55 | 42 72 6f 77 73 65 72 49 |)..{...U|BrowserI|
|000007d0| 52 43 43 68 61 6e 6e 65 | 6c 50 61 67 65 28 4f 77 |RCChanne|lPage(Ow|
|000007e0| 6e 65 72 57 69 6e 64 6f | 77 29 2e 53 79 73 74 65 |nerWindo|w).Syste|
|000007f0| 6d 50 61 67 65 2e 46 69 | 6e 64 50 72 69 76 61 74 |mPage.Fi|ndPrivat|
|00000800| 65 57 69 6e 64 6f 77 28 | 55 42 72 6f 77 73 65 72 |eWindow(|UBrowser|
|00000810| 49 52 43 55 73 65 72 4c | 69 73 74 28 49 29 2e 4e |IRCUserL|ist(I).N|
|00000820| 69 63 6b 4e 61 6d 65 29 | 3b 0d 0a 7d 0d 0a 0d 0a |ickName)|;..}....|
|00000830| 00                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+